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THE  DESIGN  OF  SOLID  PROPELLANT  GRAINS  USING  THE  HEWLETT  PACKARD 

41 C  CALCULATOR 


J.  C.  HODGES 


The  design  of  a  solid  propellant  rocket  motor  grain  is  in  many  ways  as  much 
an  art  as  it  is  a  science.  Typically,  the  grain  designer  has  many  years  of 
design  experience  to  call  upon  in  designing  a  grain  for  a  specific  application 
and  over  the  years  very  sophisticated  computer  codes  have  been  written  to 
evaluate  a  given  grain  design.  However,  the  initial  design  had  to  come  from 
the  tedious  and  often  time  consuming  method  of  graphically  laying  out  a  design 
based  on  the  designer's  experience.  There  have  been  computer  calculated 
curves  published  that  aid  the  designer  in  his  choice  but  for  the  most  part 
these  approaches  virtually  ignore  propellant  characteristics  and  dwell  on  such 
parameters  as  loading  fraction.  Consequently,  it  would  be  advantageous  for 
the  designer  to  have  a  simple  method  that  would  give  him  a  quick  solution  to 
his  design  problem.  With  this  in  mind,  a  program  has  been  written  for  the 
H/P  41C  Programmable  Calculator  that  will  solve  for  three  basic  solid 
propellant  grain  designs  -  Standard  Wagon  Wheel,  Modified  Wa?on  Wheel 
(W,=W2=W3),  and  Star.  The  program  uses  ballistic  requirements  and  propellant 
characteristics  selected  by  the  design  engineer  and  calculates  a  design  output 
that  can  be  used  as  an  excellent  first  order  solution  for  input  to  more 
sophisticated  computer  codes, such  as  the  Solid  Propellant  Rocket  Motor  Internal 
Ballistics  Computer  Program.  * 

Using  the  first  order  solution  as  a  "seed"  will  greatly  simplify  the  computer 
code  Input  and  reduce  computer  run  time.  For  simplification,  only  cylindrical 
grains  without  forward  or  aft  end  domes  are  considered,  however  the  engineer 
does  have  the  option  of  considering  both  ends  of  the  grain  inhibited,  one  end 
of  the  grain  inhibited  or  botn  ends  uninhibited.  Stable  combustion  and  non- 
eroslve  burning  are  assumed  and  the  number  of  spokes  or  star  points  have  been 
limited  to  what  has  been  considered  practical  and  useful  geometric  limits. 

The  equations  for  the  star  grain  have  been  established  to  achieve  as  close  to 
neutral  surface  versus  time  as  is  feasible  within  these  limits. 

User  Inputs  for  this  program  are:  grain  outside  diameter,  web  burn  time, 
propellant  burn  rate  and  K  ratio  at  the  selected  operating  pressure,  propellant 
density,  propellant  expected  delivered  impulse  and  the  total  impulse  required 
by  the  mission.  Program  outputs  Include  predicted  ballistic  parameters,  average 
thrust,  etc.,  and  a  geometric  description  of  the  grain  as  shown  in  Figures 
A,  B,  and  C. 


1.  "  Solid  Propellant  Rocket  Motor  Internal  Ballistics  Computer  Program", 
Report  Number  RK-TR-67-7,  US  Army  Missile  Command,  Redstone  Arsenal,  Alabama. 
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The  equations  used  in  this  program  are  based  on  a  paper  by  Max  W.  Stoned* 

The  program  format  has  been  fashioned  after  that  of  the  Hewlett/Packard 
format  for  the  submission  of  user  programs  to  the  H/P  Users  Library  because 
this  format  is  considered  the  standard  for  H/P  41 C  users.  Equipment  necessary 
to  use  the  "SPGD"  program  are:  a  H/P  41 C  with  quad  memory  module  or  a  41 CV, 
and  a  H/P  821 43A  Peripheral  Printer.  Any  suggestions  for  improvement  of 
the  program  will  be  welcomed  by  the  author.  One  word  of  caution,  negative 
outputs  Indicate  geometric  limits  have  been  exceeded  or  incorrect  data  has 
been  entered. 

An  example  of  a  grain  designed  using  this  program  is  the  PLUME  grain.  PLUME 
is  an  experimental  rocket  for  the  evaluation  of  the  interaction  between  the 
rocket  exhaust  and  the  command  guidance  link.  The  desired  ballistic  parameters 
for  PLUME  were  a  velocity  of  4000  fps  at  the  end  of  a  1  second  boost,  and  to 
maintain  4000  fps  for  2  seconds  using  a  sustainer.  The  motor  I.D.  was  6.4 
inches  and  minimum  smoke  propellant  had  to  be  used  in  the  boost  and  sustain 
phase.  The  total  inert  weight  of  the  missile  was  57.3  lb. 
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Preliminary  trajectory  analysis  using  the  H/P  41C  indicated  a  boost  total 
Impulse  of  13,500  lb-sec  would  meet  the  desired  end-of-boost  velocity.  Drag 
at  the  end  of  boost  was  925  Ibf,  therefore  the  sustain  total  impulse  would  be 
1850  lb-sec.  A  minimum  smoke  propellant.  Propulsion  Directorate  formulation 
B-59,  of  the  lacquer  type  was  chosen.  Its  ballistic  characteristics  at  the 
selected  operating  pressure  of  2000  psi  are:  burn  rate-0.47  ips,  Kn  ratio-450 
and  delivered  1^-245  lb-sec  per  lb.  The  density  of  this  formulation  is  0.06 

lb  per  cubic  inch. 

A  two  part  booster  grain  was  selected  for  the  first  analysis  -  a  forward  boost 
grain  that  would  burn  into  a  "cylindrical  port"  sustainer  and  an  aft  boost  grain 
that  would  burn  to  the  case  wall  during  boost  burning.  The  aft  section  of  the 
boost  grain  was  considered  to  have  one  end  burning.  The  forward  grain  section 
were  considered  to  be  Inhibited.  The  "Solid  Propellant  Grain  Design" 
program  was  used  to  determine  the  geometric  and  ballistic  parameters  of  the  two 
booster  grains.  The  data  Inputs  and  output  is  shown  in  Table  1. 

The  nozzle  throat  area  is  sized  by  the  booster  requirements  and  the  sustainer 
ballistic  characteristics  are  "backed  into."  Propellant  experimental  data 
indicated  the  minimum  desirable  chamber  pressure  for  stable  combustion  would 
probably  be  500  psi.  The  initial  burning  surface  for  the  sustainer  would  be 
the  final  burning  surface  for  the  booster  and  can  be  found  in  the  printout 
(Table  1).  This  surface  will  change  very  quickly  as  the  slivers  of  the  aft 
booster  burn  away,  however  the  slivers  from  the  forward  grain  will  remain  as 
cusps  on  a  basically  cylindrical  port  grain. 


t.  hA  Practical  Mathematical  Approach  to  Grain  Design,"  Jet  Propulsion, 
Volume  28,  Number  1,  January  1958. 

3.  "Multi-Stage  Trajectory  Analysis"  by  Karl  L.  Remmler,  Hewlett/Packard 
Users  Library  Number  0061 7C. 
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Assuming  that  the  sustalner  burning  surface  Is  898  square  Inches  subsequent  to 

aft  sliver  burnout,  the  motor  K„  will  be  207.  This  K„  will  cause  the  chamber 

n  n 

pressure  to  be  approximately  500  psl  and  hence  a  propellant  burn  rate  of  0.29 
Ips.  The  final  sustalner  burn  surface  will  be  approximately  495  square  Inches 
giving  a  chamber  pressure  of  less  than  200  psl.  This  gives  an  average  sustalner 
burn  surface  of  696  square  Inches  which  calculates  to  an  average  thrust  of  2755 
lbf.  It  will  be  noted  that  this  Is  more  thrust  than  required  to  overcome  drag, 
but  Is  the  minimum  condition  for  sustalner  operaticsns  using  the  required 
minimum  smoke  propellant.  A  cross-section  sketch  of  the  grain  is  shown  In 
Figures  1  and  2  and  the  predicted  booster  Interior  ballistics  In  Table  1. 
Propellant  distribution  is  shown  in  Table  2.  Table  3  lists  the  Inputs  am' 
outputs  of  a  two  dimension  trajectory  analysis  of  the  PLUME  missile  using 
the  41 C.  This  design  was  then  used  as  a  "seed"  for  the  Boeing  Solid 
Propellant  Rocket  Motor  Internal  Ballistic  Computer  Program.  There  was  a 
very  good  correlation  between  the  ballistics  predicted  by  the  H/P  41C  and  the 
large-scale  computer  code. 
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TABLE  1 

n 

\  : 

i . 

i  j 

I'  ’ 

PLUME  BOOST  GRAIN  INPUT/OUTPUT 

AFT  BOOST  GRAIN 

FORWARD  BOOST  GRAIN 

SPGD  GRAIN 

GRAIN  O.D.  ? 

GRAIN  0.8.  ? 

5.24  RUN 

6.40  RUN 

BURN  TINE  7  \ 

BURN  TINE  ? 

1.00  RUN  1 

1.00  RUN 

PROP  K  ? 

PROP  K  ? 

450.00  RUN 

450.00  RUN 

PP'H*  DENSITY 

PROP  DENSITY 

.06  RUN 

.06  RUN 

BURN  RATE  ? 

PU<>N  RATF  -> 

.47  RUN 

.47  RUN 

DEL  ISP  ? 

DEL  ISP  ? 

245.00  RUN 

245.08  RUN 

TOT  ISP  ? 

TOT  ISP  ? 

6,000.00  RUN  ! 

7,500.00  RUN 

LBL  A,B,  OR  C? 

LBL  A,B,  OR  C? 

XEQ  B 

XEQ  B 

N=?  4  TO  16 

N=?  4  TO  16 

8.80  RUN 

8.00  P'JH 

Z=? 

7=-) 

.25  RUN 

.25  RUN 

HOD  U.U.  GRN. 

NOD  N.K.  CRN. 

ONE  END  BURNING 

AVG  F  =  6,000.00  LBF 

PVG  F  =  7,500.00  LBF 

INL  Ab=  1,095.23  SO  IN 

NET  I  TOT  =6,000.00  SEC 

NET  I  TOT  =7.500.00  SEC 

FNL  Ab=  1,077.83  SO  IN 

NET  PROP  NT  =  24.49  LB 

NET  PROP  NT  =  30.61  LB 

P.R.=  0.98 

TOT  PROP  NT  =  28.19  LB 

TOT  PROP  NT  =  33.95  LB 

THROAT  A=  2.41  SO  IN 

BURN  TIHE  =  1.00  SEC 

BURN  TINE  =  1.00  SEC 

PORT/THROAT=  4. 02 

INL  Ab  =  853.81  SO  IN 

INI  Ab  =  1,072.75  SO  IN 

FNL  Ab  =  883.05  SO  IN 

FNL  Ab  =  1,098.33  SO  IN 

P.R.  =  1.03 

P.R.  =  1.02 

L.F.  =  0.76 

L.F.  =  0.70 

SLVR  FRAC  =  0.10 

SLVR  FRAC  =  0.07 

GRAIN  L  =  28.79  IN 

GRAIN  L  =  25.18  IN 

GRAIN  O.D.  =  5.24  IN 

GRAIN  O.D.  =  6.40  IN 

MEB  =  0.47  IN 

NEB  =  0.47  IN 

STRESS  R  =  8.16  IN 

STRESS  R  =  0.19  IN 

SYH  NR  =  8.00 

SYH  NR  =  8.00 

BETA  =  45.00  DEG 

BETA  =  45.80  DEG 

ALPHA  =  26.66  DEG 

ALPHA  =  29-88  DEG 

THETA  =  108.34  DEG 

THETA  =  185.12  DEG 

GAHNA  =  18.34  DEG 

GANNA  =  15.12  DEG 

X  =  0.40  IN 

K  =  0.96  IN 

H  =  0.66  IN 

N  =  8.66  IN 

L  =  1.07  IN  f 

L  =  1.63  IN 

Z  =  0.25  IN  1 

Z  =  0.25  IN 

PORT  A  =  5.25  SO  IN 

PORT  A  =  9.70  SO  IN 

THROAT  A  =  1.93  SO  IN 

THROAT  A  =  2.41  SO  IN 

PORT/THROAT  =  2.72 

PORT/THROAT  =  4.02 

t  ' 
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TABLE  2 

PLUME  PROPELLANT  WEIGHT  DISTRIBUTION  (LBS) 


TOTAL  LOADED 

NET 

SLIVER 

Fwd  Boost  Wt  = 

28.19 

24.49 

3.70 

Aft  Boost  Wt  » 

33.95 

30.61 

3.34 

TOTAL  BOOST  WT  * 

62.14 

55.10 

7.04* 

Sustain  Cycl  Wt  * 

18.63 

16.38 

2.25 

Boost  Slvr  Wt  * 

7.04* 

7.04* 

-0- 

TOTAL  SUSTAIN  WT  = 

25.67 

23.42 

2.25 

G.  T.  Propellant  Wt  = 

87.81 

78.52 

2.25 

Inert  Weight  = 

57.31 

MISSILE  WT  = 

145.12 

♦NOTE:  Boost  sliver  consumed  during  sustain. 

Total  Grain  Length  *  25.18  in  Aft  Boost  +  28.79  Fwd  Boost  *  53.97  in 
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TABLE  3 


PLUME  TRAJECTORY  ANALYSIS 


BOOST  INPUT/OUTPUT 

SUSTAIN  INPUT/OUTPUT 

0= 

A= 

.238  RUN 

.230  RUN 

HP3’ 

HP3’ 

55.100  RUN 

23.420  RUN 

VAC.ISP3’ 

VAC.  ISP3’ 

270.000  RUN 

265.000  RUN 

T0=? 

TB3’ 

0.000  RUN 

3.000  RUN 

TB3’ 

TF3’ 

1.000  RUN 

3.000  RUN 

TF=? 

ALPHA3’ 

1.000  RUN 

0.000  RUN 

ALPHAS 

AEXTT3? 

0.000  RUN 

.230  RUN 

flEXIT='? 

N=? 

.230  RUN 

20.000  RUN 

N=? 

«=’ 

10.000  RUN 

5.000  RUN 

H3’ 

HD3’ 

5.000  RUN 

0.000  RUN 

U03’ 

XEC  A 

145.120  RUN 

V3’ 

T!HE=1.508  SEC 

TIHE=3.000  SEC 

0.000  RUN 

VEL=3, 957.899  FPS 

VEL=4,778. 121  FPS 

PATH  ANGLE3? 

PATH  ANGLE3 1.698  DEG 

PATH  ANGLE3 1.086  DEG 

3.500  RUN 

RANGE=1. 134  KH 

RAHGE=3. 153  KH 

RANGE3? 

ALT=129.798  FT 

ALT=287.958  FT 

0.000  RUN 

0=18,719.448  PSF 

0=27,898.223  PSF 

ALT3? 

T=2,614.296  LBS 

T=0.000  LBS 

1.000  RUN 

DRAG=990.259  LBS 

DRAG=1, 475.393  LBS 

XEQ  A 

HEIGHT=84.165  LBS 

HEIGHT=66.600  LBS 

TIHE=0.500  SEC 

TIHE=2.000  SEC 

VEL3 1,754. 235  FPS 

VEL=4,262.866  FPS 

PATH  ANGLE32.281  DEG 

PATH  ANGLE3!. 479  DEG 

RANGE30. 129  KH 

RANGE=1.762  KH 

ALT=19.658  FT 

ALT=186.652  FT 

0=3,659.912  PSF 

0=21,687.893  PSF 

T=14,386.160  LBS 

T=2,615.313  LBS 

WAG=337. 108  LBS 

DRAG=1, 147.298  LBS 

HEIGHT3 117. 570  LBS 

HEIGHT=78.318  LBS 

TIHE=1.000  SEC 

TIHE=2.500  SEC 

VEL=3,643.860  FPS 

VEL=4, 558.518  FPS 

PATH  ANGLE3 1.935  DEG 

PATH  ANGLE3 1.276  DEG 

RANGE=0.554  KN 

RANGE=2.436  KH 

ALT=69.674  FT 

ALT=239.585  FT 

0=18,127.872  PSF 

0=24,762.821  PSF 

T=0.000  LBS 

T=2,616.258  LBS 

KAG=958.964  LBS 

DRAG=1,309.911  LBS 

HEIGHTS. 028  LBS 

«IGHT=72.455  LBS 
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APPENDIX  A 

SOLID  PROPELLANT  GRAIN  DESIGN 
PROGRAM  FOR  H/P  41 C 


GLOSSARY  OF  TERMS 


SYMBOL 


m 

N 

O. D.  or  D. 
PROP 

P. R. 

• 

r 

r 


DESCRIPTION  UNITS 
Area  of  Burning  Surface  sq  in 
Cross-section  Area  of  Case  sq  in 
Cross-section  Area  of  Grain  sq  in 
Cross-section  Area  of  Grain  Sliver  sq  in 
Motor  Nozzle  Throat  Area  sq  in 
Average 

Motor  Thrust  Lbf 


Final  Conditions  at  burn-out 
Initial  Conditions  at  ignition 


Propellant  Specific  Impulse  Lbf-sec/Lbm 

Motor  Total  Impulse  L,bf_3ec 

Length  of  Short  Spoke  in 

Ratio  of  Ab  to  At 

Length  of  Long  Spoke  in 

Length  of  Grain  in 

Length  of  Grain  with  ends  burning.  in 

Loading  Fraction,  Ratio  of  Ag  to  Ac 
Length  of  Spoke  Face  in 

Symentry  Number,  Number  of  Spokes  or  Star  Points 
Outside  Diameter  of  Grain  in 

Propellant 


Progressivity  Ratio,  Ratio  of  FNL  Ab  to  INL  Ab 
Burning  Rate  of  Propellant  in/sec 

Stress  Relief  Radius  of  Grain  in 
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s 

S.F. 

Burning  Periphery  of  Grain  Cross-section 

Sliver  Fraction,  Ratio  of  A3^VP  to  Ac 

in 

tb 

Time  required  to  burn  web  distance 

sec 

W 

Grain  Web 

in 

Wt 

Propellant  Weight 

Lbm 

Distance  between  parallel  sides  of 
spokes  and  distance  between  spoke  face 
and  center  line  (See  Figures) 

in 

SYMBOL 

DEFINITION 

a 

Alpha,  Angle  Locating  r  (see 

figures) 

Deg 

6 

Beta,  Angle  Defining  Propellant  Sector 

Deg 

Y 

gamma,  Angle  Locating  r  (see 

figures) 

Deg 

P 

rho,  Propellant  Density 

Lbm/cu  in 

-e- 

Theta,  Angle  Defining  Arc  of 

r 

Deg 

11 
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LABEL  A 


Figure  A.  Sector  of  a  standard  wagon  wheel  configuration 


MODIFIED  WAGON  WHEEL,  (WEB]  =  WEB2  =  WEB3) ,  FIGURE  B. 


1.  N  =  Number  of  spokes  of  symmetry  number 

„  2  TT 

2.  8  =  r 


3.  Y  =  SIN'1 


r  r+W 


2  “  r 


4.  a  =  8-  y 

5.  ■©•  =  -jj—  +  Y 


6.  m  = 


IT 

2 

W 


SIN  6 

7.  K  =  L  -  m 

8.  Lmax 


r+W 

TAFT 


W 

WB 


„  ,  _  (SIN  B) (Lmax)-  i 

y.  L  SIN  B 


.  INL  Ab  =  (Lg)(2N)(L)  +  N  [m+2re-  +  £  -  W)(<x+y)] 

•  *»  -  * fm-B  *  ^  -(™4  -(§ 


12.  Aslvr  =  N 

13.  L.F.  = 

14.  S.F. 


Mr1  .  (r+w)2  *  .  (r+W)21 

L  tan  Y  I 


Acase 

Aslvr 

Acase 


15.  Wt.  slvr  =  (Aslvr)(p)(Lg) 

16.  FNL  Ab  =  (Lg)(N)  f 2L  -  3m  +  2(r+W)e-  +  JjL 


LABEL  B 


Figure  B.  Sector  of  a  modified  wagon  wheel  configuration,  Wi=W2~W3 
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STAR,  FIGURE  C. 


1.  N  =  Number  of  Star  Points  or  symmetry  number 

7T 


2.  8  - 


NT 


3,  -e  =  g  +  SIN" 


(D  -  r  -  W)  (SIN  6} 

t _ 

r  +  w 


4.  a  =  TAN  (a-g)  for  maximum  neutrality 

5.  Maximum  Web  =  (0.33)(O.D. ) 

6.  INL  Ab  =  (Lg)(2N) 


r(«-  TAN  a)  +  (| 

COS  (a-B 


u. 

7.  FNL  Ab  =  (Lg)(2N)  [(r+W)*J 


8.  Ag  =  ^  -  N 


’(£  -r-W+  r  )2  SIN  8  COS  a 
T0S_a 


9.  Aslvr  =  -  N 


10.  Iteration  for  a=  TAN 

Change  in  a  =  a  -  TAN  (a-g) 
1 

COS*  (cuF)-- 


COS  (ct-B') 

(r+W)2e-  +  (r+W){^  -  r  -  W) 
’(a-g): 


-  1 


CORRECTIONS  FOR  END  BURN,  ALL  CASES 


1.  New  INL  Ab  =  Old  INL  Ab  +  (Ag  *  2),  for  two  ends 

2.  New  FNL  Ab  =  (0LD  [gL-  -A-b-  )(Lg-2W),  for  two  ends 


3. 

4. 


New  P.R.  = 
New  At  = 


New  FNL  Ab 
New  INL  Ab 

Avg  Ab 
Kn 


16 


"■*r- 


)  SIN  6 

T - 

r2  (a-TAN  a) 
SINel 


LABEL  C 


I 


Figure  C.  Sector  of  Star  Design,  side  burns  out  at  web 
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GENERAL  BALLISTIC  EQUATIONS 


.  ....  .  NET  I  total 

1.  AVG  F  =  - tb - 

2.  NET  PROP.  WT.  =  (Lg)(Ag-Asl vr)(  p) 

3.  TOTAL  PROP.  WT.  =  (Lg)(Ag)(p) 

4.  I  total  =  (NET  PROP.  WT.)(Isp) 


5. 

6. 

7. 


Itotal 

Lg  =  .TpTtttpl 

Ag  -  Aslvr 


W  =  (r)(tb) 
Kn  • 


Ab 

It 


INL  Ab  +  FNL  Ab 
At  =  (2 ) (Kn ) 


!  i 

1  i 
:  / 

I-  ' 
.  i 


\ 


i 


i 


18 


.i 


PROGRAM  DESCRIPTION 


SAMPLE  PR08LEM : 

GIVEN:  GRAIN  O.D.  *  4.25  IN. 

BURN  TIME  -  1.0  SEC 
TOTAL  IMPULSE  =  7000  LB-SEC 

REQUIRED:  CALCULATE  A  STD  W.  W.  GRAIN  WITH  BOTH  ENDS  BURNING,  A  MOD  W.W. 
AND  A  STAR  GRAIN  WITH  NO  ENDS  BURNING. 

SELECTED:  CHAMBER  PRESSURE  =  2000  PS I 

PROPELLANT  Kn  =  460  0  2000  PSI 
PROPELLANT  BURN  RATE  =  0.  5  IPS-0  2000  PSI 
PROPELLANT  DENSITY  =  0.062  LB/INJ 
PROPELLANT  DEL.  ISP  =  235  LB-SEC/LB 


SOLUTION: 


INPUT 

FUNCTION 

DISPLAY 

COMMENTS 

PRINTER:  ON/NORM 

(XEQ)  SIZE  037 

(EQ)  SPGD 

READY 

R/S 

GRAIN  O.D.  ? 

ENTER  GRAIN  O.D. 

4.25 

R/S 

BURN  TIME  ? 

ENTER  BURN  TIME 

1.0 

R/S 

PROP  K  ? 

ENTER  PROPELLANT  Kn 

460 

R/S 

PROP  DENSITY 

ENTER  PROPELLANT  DENSITY 

.062 

R/S 

BURN  RATE  ? 

ENTER  PROPELLANT  BURN  RATE 

.5 

R/S 

DEL  ISP  ? 

ENTER  EXPECTED  DELIVERED  ISP 

235 

R/S 

TOT  ISP  ? 

ENTER  TOTAL  IMPULSE  REQ'D 

7000 

R/S 

LBL  A.B.  OR  C  ? 

SELECT  LBL  A  FOR  STD  W.W. 

(A) 

N=?  2  TO  16 

SELECT  SYMENTRY  NR 

5. 

R/S 

Z=? 

SELECT  VALUE  FOR  Z 

.2 

R/S 

STD  W.W.  GRAIN 

OUTPUT  PRINTED 

NEXT  CMD 

SELECT  LBL  D  FOR  END  BRN 

(D) 

1  END:  SF02 

SELECT  2  END  BRN  (NO  FLAG) 

R/S 

CORRECTION  FOR  END  BRN  PRINTED 

NEXT  CMD 

SELECT  LBL  B  FOR  NDD  W.W. 

N-?  4  TO  16 

SELECT  SYMENTRY  NR  (MULT  OF  2) 

6. 

R/S 

L=? 

SELECT  VALUE  FOR  Z 

.2 

R/S 

MOD  W.W.  GRN 

OUTPUT  PRINTED 

NEXT  CMD 

SELECT  LBL  CFOR  STAR 

(C) 

N=?  4  TO  10 

SELECT  SYMENTRY  NR 

10. 

R/S 

STAR 

OUTPUT  PRINTED 

NEXT  CMD 

SELECT  LBL  E  TO  EXIT  PROGRAM 

(E) 

0.00 

CALCULATOR  RTN  TO  NORMAL 

«r»y.  t 


SAMPLE  PROBLEM  INPUT/OUTPUT 


XEQ 

-SPGD- 

SPGB  READY 

RUN 

SPGD  GRAIN 

GROIN  O.B.  ? 

4.25 

RIJN 

BURN  TINE  ? 

1.80 

RIJN 

PROP  K  *> 

460.08 

RUN 

PROP  DENSITY 

.062 

RUN 

BURN  RATE  ? 

.50 

RUN 

DEL  ISP  ? 

235.00 

RUN 

TOT  ISP  ? 

7,008.00 

RUN 

LBL  0,B,  OR  C? 

XE8  0 

N=?  2  TO  16 

5.00 

RUN 

z=? 

.20 

RUN 

STB  U.U,  CRN. 

AVG  F  =  7,000.00  LBF 
HET  I  TOT  =7,000.00  SEC 
NET  PROP  HT  =  29.79  LB 
TOT  PROP  HT  =  34.93  LB 
BURN  TIME  =1.00  SEC 
INL  flb  =  937.79  SSI  IN 
FNL  Ob  =  983.97  SO  IN 
P.R.  =  1.05 
L.F.  =  0.74 
SLVR  FRAC  =  0.11 
GRAIN  L  =  53.41  IN 
GROIN  O.O.  =  4.25  IN 
HEB  =  0.50  IN 
STRESS  R  =  0.13  IN 
SYH  NR  =  5.00 
BETA  =  36.80  BEG 
ALPHA  =  11.23  BEG 
THETA  =  114.77  BEG 
H  =  0.85  IN 
L  =  0.33  IN 
Z  =  B.20  IN 
PORT  A  =  3.64  SO  IN 
THROAT  A  =  2.09  SO  IN 
PORT/THROAT  =1.74 


XE8  D 

XE8 

H/ 

N=?,  4  TO  10 

1  END:  SF02 

18.08  RU 

RUN 

THO  END  BURNING 

STAR  GRN 

AVG  F  =  7,000.08  LBF 

INL  Ab=  958.89  SO  IN 

NET  I  TOT  =7,000.88  SEC 

FNL  Ab=  965.54  S8  IH 

HET  PROP  HT  =  29.79  LB 

P.R.=  1.01 

TOT  PROP  HT  =34.49  LB 

THROAT  A=  2.89  S8  IN 

BURN  TINE  =1.00  SEC 

PORT/THROAT=  1.74 

IHL  Ab  =  968.87  S8  IN 
FNL  Ab  =  961.65  SO  IN 

XE8  B 

P.R.  =  1.00 

N=?  4  TO  16 

L.F.  =  0.59 

6.00  RUN 

SLVR  FRAC  =  0.08 

Z=? 

GROIN  L  =  67.01  IN 

.20  RUN 

GROIN  O.B.  =  4.25  IN 

HOD  H.H.  GRN. 

HEB  =  0.50  IN 

STRESS  R  =  0.13  IN 

AVG  F  =  7,800.00  LBF 

SYH  NR  =  10.00 

HET  I  TOT  =7,800.00  SEC 

BETA  =  18.00  DEG 

NET  PROP  HT  =  29.79  LB 

ALPHA  =  67.80  DEG 

TOT  PROP  HT  =  35.49  LB 

THETA  =  65.52  DEG 

BURN  TINE  =1.00  SEC 

PORT  A  =  5.88  SQ  IN 

INL  Ab  =  907.25  SO  IN 

THROAT  A  =  2.09  SQ  IN 

FNL  Ab  =  1,014.51  S8  IN 

P.R.  =  1.12 

PORT/THROAT  =  2.82 

L.F.  =  0.82 

SLVR  FRAC  =  0.13 

GRAIN  L  =  49.34  IN 

GRAIN  O.B.  =  4.25  IN 

HEB  =  0.58  IN 

STRESS  R  =  0.13  IN 

SYH  HR  =  6.00 

BETA  =  60.00  BEG 

ALPHA  =  35.23  DEG 

THETA  =  114.77  BEG 

GANNA  =  24.77  DEG 

K  =  0.26  IN 

H  =  8.58  IN 

L  =  8.84  IN 

Z  =  0.20  IN 

PORT  0  =  2.59  SO  IH 

THROAT  0  =  2.09  SO  TN 
PORT/THROAT  =1.24 

XEQ 

USER  INSTRUCTIONS 
(HP  41 C  SIZE  037) 

STEP  INSTRUCTIONS  INPUT  FUNCTION  DISPLAY 

1  LOAD  PROGRAM 


2  PRINTER  ON,  MODE:  NORM 


3 

INITIALIZE  PROGRAM 

(XEQ)  SPGD 

SPGD  READY 

4 

PRESS  R/S 

R/S 

GRAIN  O.D.  ? 

•  ENTER  GRAIN  O.D.  (INCHES) 

NN 

R/S 

BURN  TIME  ? 

•  ENTER  BRN  TIME  (SEC) 

NN 

R/S 

PROP  K  ? 

•  ENTER  PROP  Kn  , 

NN 

R/S 

PROP  DENSITY 

•  ENTER  PROP  DENSITY  (LB/INJ) 

NN 

R/S 

BURN  RATE  ? 

•  ENTER  PROP  BRN  RATE  (IPS) 

NN 

R/S 

DEL  ISP  ? 

•  ENTER  PROP  DEL  ISP  (LB-SEC/LB) 

NOTE:  PROP  Kn,  BRN  RATE,  AND  DEL  ISP 

NN 

R/S 

TOT  ISP  ? 

MUST  BE  AT  SAME  CHAMBER  PRESSURE 
•  ENTER  REQ'D  TOTAL  ISP  (LB-SEC) 

NN 

R/S 

LBL  A,B  OR  C  ? 

5 

SELECT  TYPE  GRAIN: 

N  =  ?  N  TO  N 

•  STD.  W.W. 

(A) 

•  MOD.  W.W. 

(B) 

•  STAR 

(SEE  FIGURES  A,  B,  AND  C) 

(C) 

6 

ENTER  SYMENTRY  NUMBER 

N 

R/S 

Z  =  ? 

•  N  MUST  BE  WITHIN  LIMITS  SHOWN. 

MOD.  W.W.  N  MUST  BE  MULTP  OF  2. 

7 

ENTER  SELECTED  VALUE  FOR  Z  (IN) 

N 

R/S 

NEXT  CMD 

NOTE:  NOT  APPLICABLE  TO  STAR 


8  SELECT  NEXT  CMD 

•  SELECT  DIFFERENT  GRN  TYPE  (A)  (B)  (C)  (SEE  STEP  6) 


•  SELECT  CORRECTION  FOR  END  BRN 

(D) 

1  END:  SF02 

•  FOR  ONE  END  BRN  SF02 

SF02 

R/S 

NEXT  CMD 

•  FOR  TWO  END  BRN 

R/S 

NEXT  CMD 

•  TO  TERMINATE  PROGRAM 

(9 

0.0  0 

•  RETURNS  CALCULATOR  TO  NORMAL  MODE 
•  TO  CHANGE  INPUTS,  ENTER  NEW  VALUE 

IN  PROPER  REG 

(F) 

LBL  A.B.  OR  C 

21 


USER  INSTRUCTIONS 
(HP  41 C  SIZE  037) 
USER  MESSAGES 


STEP 

INSTRUCTIONS 

INPUT 

FUNCTION 

DISPLAY 

1 

•  KEY  SAME  GRN  LBL.  INPUT 

SMALLER  N  VALUE  OR 
t  STORE  SMALLER  O.D.  VALUE  IN 

N 

(A)  (B)  OR  (C) 

LOWER  N  OR 

ROO  XEQ  (F) 

N 

(F) 

2 

•  STORE  SMALLER  BRN  TIME  R02 

XEQ  (F)  OR 

t  STORE  SMALLER  BRN  RATE  R05 

N 

(F) 

REDUCE  WEB 

CHANGE  Kn  AND  DEL  ISP  AS  REQ'O 

Kn  IN  K03,  DEL  ISP  IN  R06 

NN 

(F) 

3 

•  KEY  IN  LOWES  VALUE  FOR  2 

N 

R/S 

REDUCE  2 

2  =  ? 

4 

•  KEY  IN  LOWER  VALUE  FOR  N 

N 

R/S 

REDUCE  N 

N  =  ? 

5 

•  KEY  IN  SAME  TYPE  GRN 

(A)  (B)  OR  (C) 

INC:  N  OR 

REDUCE  VALUE  FOR  N,  OR 

N 

R/S 

DEC:  D 

•  STORE  REDUCED  O.D.  IN  ROO 

NN 

(F) 

LBL  A,B,  OR 

AND  SELECT  SAME  TYPE  GRN  LBL 

(A)  (B)  OR  (C) 

C 
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PROGRAM  LISTING 

LINE  KEY  ENTRY _ COMMENTS  LINE  KEY  ENTRY _ COMMENTS 


0 1 ♦  LBL  "SPG 
D  “ 

02  FIX  2 

03  SF  27 

04  ROD 

05  " SPGD  GR 
0IN- 

06  0VIEW 

07^LBL  00 

08  -GROIN  O 
.  D  .  *?  " 

*09  PROMPT 

10  STO  00 

11  -BURN  T I 
ME  ?- 

12  PROMPT 

13  STO  02 

14  -PROP  K 
o  - 

15  PROMPT 

16  STO  03 

17  -PROP  DE 
NSITY- 

18  PROMPT 


19 

STO  04 

20 

-BURN  RO 

TE  1 

i  *■ 

21 

PROMPT 

22 

STO  95 

23 
?  “ 

-DEL  ISP 

24 

PROMPT 

25 

STO  06 

26 
?  - 

-TOT  ISP 

27 

PROMPT 

28 

STO  07 

29^LBL  F 

30 

RCL  00 

31 

XT2 

32 

PI 

33 

♦ 

34 

4 

35 

/ 

36 

STO  18 

37 

RCL  00 

38 

.  03 

39 

* 

40 

STO  12 

41 

RCL  00 

42 

.  2 

43 

* 

DATA  INPUT 


CAL  WEB 
r,  Ac 


Ac 


r 


44 

STO 

15 

45 

RCL 

02 

46 

RCL 

05 

47 

* 

48 

STO 

10 

49 

RCL 

15 

50 

X<  > Y 

51 

X>Y? 

52 

GTO 

17 

53 

“LBL 

0 

,  OR  C?“ 

54  PROMPT 

55  RTN 
56»LBL  O 

57  SF  05 

58  CF  06 

59  CF  07 


60 

-N=? 

2 

16 

•a 

61 

PROMPT 

62 

STO 

13 

63 

PI 

64 

RCL 

13 

65 

/ 

66 

STO 

14 

67 

XEQ 

01 

68 

XEQ 

02 

69 

RCL 

21 

70 

RCL 

19 

71 

+ 

72 

RCL 

12 

73 

RCL 

23 

74 

* 

75 

+ 

76 

RCL 

00 

77 

2 

78 

s 

79 

RCL 

10 

80 

— 

81 

RCL 

17 

82 

* 

83 

+ 

84 

RCL 

13 

85 

2 

86 

* 

87 

♦ 

88 

STO 

1  1 

89 

RCL 

00 

90 

RCL 

10 

91 

* 

92 

RCL 

10 

93 

XT2 

MAX  W  FOR 
WW  GRN 

W 


CAL  STD 
WW  GRN 


N 


BETA 


INL  S 


23 


V 


PROGRAM  LISTING 

LINE  KEY  ENTRY _ COMMENTS  LINE  KEY  ENTRY  COMMENTS 


94 

— 

146 

+ 

95 

RCL 

17 

147 

RCL  10 

96 

4c 

148 

RCL  14 

97 

RCL 

21 

149 

TON 

98 

RCL 

10 

150 

99 

4c 

151 

+ 

iee 

2 

152 

RCL  19 

101 

4c 

153 

— 

102 

+ 

154 

RCL  13 

103 

RCL 

10 

155 

4c 

104 

X*2 

156 

2 

105 

RCL 

14 

157 

4c 

106 

TON 

158 

RCL  01 

107 

s 

159 

4c 

108 

+ 

160 

STO  32 

109 

RCL 

00 

161 

SF  00 

110 

XT2 

162 

“STD  M 

111 

RCL 

16 

,  GRN . “ 

112 

4c 

163 

RVIEW 

113 

4 

164 

ODV 

114 

/ 

165 

GTO  15 

115 

+ 

166 

RTN 

116 

RCL 

12 

167^LBL  B 

117 

XT2 

168 

SF  06 

118 

RCL 

23 

169 

CF  05 

119 

4c 

170 

CF  07 

120 

— 

171 

“N=?  4 

121 

RCL 

12 

O  16“ 

122 

RCL 

10 

172 

PROMPT 

123 

+ 

173 

STO  13 

124 

XT2 

174 

PI 

125 

RCL 

16 

175 

2 

126 

TON 

176 

4c 

127 

/ 

177 

RCL  13 

128 

— 

178 

/ 

129 

RCL 

13 

179 

STO  14 

130 

4c 

180 

XEQ  01 

131 

STO 

24  Aq 

181 

RCL  17 

132 

XEQ 

04  9 

182 

RCL  16 

133 

XEQ 

03 

183 

X>Y? 

134 

RCL 

21 

184 

GTO  16 

135 

RCL 

00 

185 

XEQ  02 

136 

2 

186 

RCL  19 

137 

187 

RCL  21 

138 

RCL 

17 

188 

X<Y? 

139 

4c 

189 

GTO  16 

140 

+ 

190 

RCL  19 

141 

RCL 

10 

191 

RCL  12 

142 

RCL 

12 

192 

2 

143 

+ 

193 

ale 

144 

RCL 

23 

194 

RCL  23 

145 

4c 

195 

♦ 

FNL  Ab 


CAL  MOD 
WW  GRN 


N 


BETA 


24 


-Y. 


PROGRAM  LISTING 

LINE  KEY  ENTRY _ COMMENTS  LINE  KEY  ENTRY  COMMENTS 


196 

+ 

248 

TON 

19? 

RCL 

00 

249 

/ 

198 

2 

250 

- 

199 

251 

RCL 

00 

268 

RCL 

10 

252 

2 

261 

- 

253 

202 

RCL 

17 

254 

RCL 

10 

203 

RCL 

16 

255 

- 

204 

- 

256 

XT2 

205 

* 

257 

RCL 

17 

206 

+ 

258 

RCL 

16 

207 

RCL 

13 

259 

— 

288 

* 

260 

4c 

209 

RCL 

21 

261 

2 

210 

RCL 

13 

262 

/ 

21  1 

* 

263 

— 

212 

2 

264 

RCL 

13 

213 

* 

265 

4c 

214 

+ 

266 

STO 

24 

215 

STO 

1  1 

INL  S 

267 

XEQ 

04 

216 

RCL 

10 

268 

XEQ 

03 

217 

XT2 

269 

RCL 

21 

218 

RCL 

14 

270 

2 

219 

TON 

271 

4c 

220 

/ 

272 

RCL 

19 

221 

RCL 

10 

273 

3 

222 

RCL 

21 

274 

4c 

223 

* 

275 

— 

224 

2 

276 

RCL 

12 

225 

♦ 

277 

RCL 

10 

226 

+ 

278 

+ 

227 

RCL 

10 

279 

2 

228 

RCL 

19 

280 

♦ 

229 

* 

281 

RCL 

23 

238 

— 

282 

4c 

231 

RCL 

12 

283 

+ 

232 

XT2 

284 

RCL 

10 

233 

RCL 

23 

285 

2 

234 

4c 

286 

4c 

235 

— 

287 

RCL 

14 

236 

RCL 

00 

288 

TON 

237 

XT2 

289 

/ 

238 

RCL 

14 

290 

+ 

239 

* 

291 

RCL 

00 

240 

8 

292 

2 

241 

/ 

293 

/ 

242 

+ 

294 

RCL 

17 

243 

RCL 

12 

295 

RCL 

16 

244 

RCL 

10 

296 

- 

245 

+ 

297 

4c 

246 

XT2 

298 

+ 

247 

RCL 

16 

299 

RCL 

13 

25 


LINE  KEY  ENTRY 

300  * 

301  RCL  01 

302  * 

303  STO  32 

304  “MOD  U.U 
.  GRN. “ 


305 

OVIEI4 

306 

ODV 

307 

GTO 

15 

308 

RTN 

309^LBL 

C 

310 

SF 

07 

311 

CF 

05 

312 

CF 

06 

313 

10 

314 

“N= 

?  , 

TO 

10" 

315 

PROMPT 

316 

X>Y? 

317 

GTO 

20 

318 

STO 

13 

319 

PI 

320 

RCL 

13 

321 

/ 

322 

STO 

14 

323 

1 . 87 

324 

STO 

17 

325^LBL 

10 

326 

RCL 

17 

327 

RCL 

14 

328 

— 

329 

TON 

338 

CHS 

331 

RCL 

17 

332 

+ 

333 

RCL 

17 

334 

RCL 

14 

335 

— 

336 

COS 

337 

XT  2 

338 

1/X 

339 

1 

340 

— 

341 

/ 

342 

x=0? 

343 

GTO 

89 

344 

X>0? 

345 

GTO 

09 

346 

ST+ 

17 

347 

GTO 

10 

348^LBL 

09 

349 

RCL 

00 

PROGRAM  LISTING 

COMMENTS  LINE  KEY  ENTRY 


FNL  Ab 


CAL  STAR 


N 


BETA 


ALPHA 

ITERATION 


350 

2 

351 

/ 

352 

RCL 

12 

353 

— 

354 

RCL 

10 

355 

- 

356 

RCL 

14 

357 

SIN 

358 

* 

359 

RCL 

12 

360 

RCL 

10 

361 

+ 

362 

S 

363 

1 

364 

X<  Y? 

365 

GTO 

19 

366 

RCL 

Y 

367 

OSIN 

368 

RCL 

14 

369 

+ 

370 

STO 

23 

371 

RCL 

17 

372 

X<Y? 

373 

GTO 

19 

374 

RCL 

17 

375 

TON 

376 

— 

377 

RCL 

12 

378 

He 

379 

RCL 

00 

380 

2 

381 

/ 

382 

RCL 

12 

383 

— 

384 

RCL 

10 

385 

— 

386 

RCL 

12 

387 

RCL 

17 

388 

COS 

389 

s' 

390 

+ 

391 

RCL 

14 

392 

SIN 

393 

He 

394 

RCL 

17 

395 

RCL 

14 

396 

— 

397 

COS 

398 

/ 

399 

-*■ 

400 

RCL 

13 

401 

♦ 

COMMENTS 


THETA 


CONT  STAR 
CAL 


492 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 


KEY  ENTRY 


2 

4c 

STO  1  1 
RCL  00 
2 

/ 

RCL  12 

RCL  10 

RCL  12 
RCL  17 
COS 


XT2 

RCL 

SIN 

4c 

RCL 

COS 

4c 

RCL 

RCL 

COS 

RCL 

XT2 

RCL 

RCL 

TON 


RCL  13 

4c 

CHS 

RCL  18 
+ 

STO  24 
RCL  12 
RCL  10 

4- 

XT2 

RCL  23 

4c 

RCL  12 
RCL  10 
+ 

RCL  06 
2 


PROGRAM  LISTING 

COMMENTS  LINE  KEY  ENTRY 


COMMENTS 


INL  S 


454  / 

455  RCL  12 

456  - 

457  RCL  10 

458  - 

459  * 

460  RCL  23 

461  SIN 

462  * 

463  + 

464  RCL  13 

465  4c 

466  CHS 

467  RCL  18 

468  + 

469  STO  25 

470  XEQ  03 

471  RCL  12 

472  RCL  10 

473  + 

474  RCL  23 

475  4c 

476  RCL  13 

477  * 

478  RCL  01 

479  4c 

480  2 

481  * 

482  STO  32 

483  SF  01 

484  “STOP  GR 
N- 

485  OVIEU 

486  ODV 

487  GTO  15 

488  RTN 
489^LBL  01 

490  RCL  12 

491  RCL  10 

492  + 

493  RCL  @0 

494  2 

495  ✓ 

496  RCL  12 

497  - 

498  RCL  10 

499  - 
580  / 

501  OSIN 

502  STO  16 

583  RCL  14 

584  XOY 


CAL  ANGLES 
M.  Lmax 


GAMMA 


PROGRAM  LISTING 

LINE  KEY  ENTRY  COMMENTS  LINE  KEY  ENTRY  COMMENTS 


505 

X>Y? 

506 

GTO 

16 

507 

CHS 

508 

+ 

509 

STO 

17 

ALPHA 

510 

CHS 

51  1 

RCL 

14 

512 

+ 

513 

PI 

514 

2 

515 

s 

516 

+ 

517 

STO 

23 

THETA 

518 

RCL 

10 

519 

RCL 

14 

520 

SIN 

521 

522 

STO 

19 

M 

523 

RCL 

12 

524 

RCL 

10 

525 

+ 

526 

RCL 

16 

527 

TON 

528 

/ 

529 

RCL 

10 

530 

RCL 

14 

531 

TON 

532 

/ 

533 

— 

534 

STO 

28 

L  max 

535 

RTN 

536+LBL 

02 

DATA  INPUT 

537 

-Z=' 

>  - 

538 

PROMPT 

539 

STO 

22 

Z 

540 

RCL 

20 

541 

RCL 

14 

542 

SIN 

543 

* 

544 

RCL 

22 

545 

— 

546 

RCL 

14 

547 

SIN 

548 

s 

549 

STO 

21 

CALCULATED 

550 

0 

L 

551 

RCL 

21 

552 

X<=Y? 

553 

GTO 

18 

554 

RTN 

555^LBL 

03 

556 

RCL 

07 

557 

RCL 

04 

558 

/ 

559 

RCL 

06 

560 

/ 

561 

RCL 

24 

562 

RCL 

25 

563 

- 

564 

/ 

565 

STO 

01 

LENGTH 

566 

RCL 

1  1 

GRN 

567 

♦ 

568 

STO 

09 

569 

RTN 

570^LBL 

04 

CAL  Aslvr 

571 

RCL 

00 

572 

X*2 

573 

RCL 

16 

574 

* 

575 

4 

576 

/ 

577 

RCL 

12 

578 

RCL 

10 

579 

+ 

580 

XT2 

581 

RCL 

23 

582 

* 

583 

- 

584 

RCL 

12 

585 

RCL 

10 

586 

+ 

587 

XT2 

588 

RCL 

16 

589 

TON 

590 

/ 

591 

— 

592 

RCL 

13 

593 

* 

594 

STO 

25 

A  slvr 

595 

RTN 

596^LBL 

15 

CAL  OUTPUT 

597 

RCL 

32 

598 

RCL 

09 

599 

600 

STO 

33 

P.R. 

601 

RCL 

24 

602 

RCL 

18 

603 

/ 

604 

STO 

27 

L.F. 

605 

RCL 

25 

606 

RCL 

18 

607 

/ 

608 

STO 

28 

S.F. 

PROGRAM  LISTING 

LINE  KEY  ENTRY _ COMMENTS  LINE  KEY  ENTRY  COMMENTS 

689  RCL  18  659^LBL  06 

618  RCL  24  660  “USE  LBL 


611  - 

612  STO  26  An 

613  RCL  01 

614  RCL  24 

615  * 

616  RCL  04 

617  * 

618  STO  35  TOT. 

619  RCL  01  WT. 

620  RCL  24 

621  RCL  25 

622  - 


C  “ 

661  PROMPT 

662  RTN 
663^LBL  18 

664  TONE  7 

665  “REDUCE 
Z“ 

PROP.  666  flV  I EW 

667  GTO  82 

668  RTN 
669^LBL  19 
670  TONE  7 


623  * 

624  RCL  04 

625  * 

626  STO  29  NET  PROP. 

627  RCL  06  WT. 

628  * 

629  STO  30  NET  TOTAL 

630  RCL  02  IMPULSE 

631  ✓ 

632  STO  31  AVG  F 

633  RCL  09 

634  RCL  32 

635  + 


671  “INC:N  O 
R  DEC : D“ 

672  PROMPT 

673  RTN 
674^LBL  20 

675  TONE  7 

676  “REDUCE 
N  “ 

677  RVIEM 

678  GTO  C 

679  RTN 

680^LBL  05  PRINT" 

681  “RVG  F  =  OUTPUT 


636  2 

637  / 

638  RCL  03 

639  / 

640  STO  34  At 

641  GTO  05 

642  RTN 

643^LBL  16  USER 

644  TONE  8  MESSAGES 

645  “LOWER  N 
OR  D” 

646  PROMPT 

647  RTN 
648*LBL  17 

649  RCL  00 

650  . 33 

651  * 

652  RCL  10 

653  X<Y? 

654  GTO  06 

655  TONE  8 

656  “REDUCE 
MEB“ 

657  PROMPT 

658  RTN 


682  RRCL  31 

683  “P  LBF “ 

684  PRO 

685  “NET  I  T 
OT  = " 

686  RRCL  30 

687  “P  SEC- 

688  PRR 

689  “NET  F  9 
P  WT  =  “ 

690  RRCL  29 

691  “P  LB- 

692  PRR 

693  “TOT  PRO 
P  WT  =  “ 

694  RRCL  35 

695  “I-  LB- 

696  PRR 

697  “BURN  T I 
ME  *  “ 

698  RRCL  02 

699  “P  SEC- 
780  PRR 
701  “INL  Rb 
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LINE  KEY  ENTRY 


PROGRAM  LISTING 
COMMENTS  LINE  KEY  ENTRY 


COMMENTS 


702 

ORCL  09 

743 

RCL  17 

703 

“1-  SQ  IN 

744 

R-D 

- 

745 

“OLPHO  = 

704 

PRO 

705 

“FNL  Ob 

746 

ORCL  X 

—  a* 

747 

“P  DEG “ 

706 

ORCL  32 

748 

PRO 

707 

“1-  SQ  IN 

749 

RCL  23 

aa 

750 

R-D 

708 

PRO 

751 

“THETO  = 

709 

-P.R.  = 

aa 

- 

752 

ORCL  X 

710 

ORCL  33 

753 

“P  DEG” 

71  1 

PRO 

754 

PRO 

712 

II 

• 

U. 

9 

-J 

1 

755 

FS?C  00 

M 

756 

GTO  07 

713 

ORCL  27 

757 

FS?C  01 

714 

PRO 

758 

GTO  08 

715 

-SLVR  FR 

759 

RCL  16 

OC  = 

=  ™ 

760 

R-D 

716 

ORCL  28 

761 

“GOMMO  = 

717 

PRO 

aa 

718 

“GROIN  L 

762 

ORCL  X 

=  - 

763 

“P  DEG“ 

719 

ORCL  01 

764 

PRO 

720 

“1-  IN- 

765 

RCL  21 

721 

PRO 

766 

RCL  19 

722 

“GROIN  O 

767 

- 

.  0. 

__  mm 

768 

“K  =  - 

723 

ORCL  60 

769 

ORCL  X 

724 

“  P  IN- 

770 

-P  IN- 

725 

PRO 

771 

PRO 

726 

“WEB  =  - 

772^LBL  07 

727 

ORCL  10 

773 

-M  =  " 

728 

“P  IN- 

774 

ORCL  19 

729 

PRO 

775 

-P  IN- 

730 

“STRESS 

776 

PRO 

R  = 

•a 

777 

-L  =  " 

731 

ORCL  12 

778 

ORCL  21 

732 

~h  IN- 

779 

“P  IN- 

733 

PRO 

780 

PRO 

734 

“SYH  NR 

781 

"  2  =  “ 

mm 

782 

ORCL  22 

735 

ORCL  13 

783 

“P  IN- 

736 

PRO 

784 

PRO 

737’ 

RCL  14 

785^LBL  08 

738 

R-D 

786 

RCL  26 

739 

•• 

“BETO  = 

787 

“PORT  O 

740 

ORCL  X 

788 

ORCL  X 

741 

“P  DEG“ 

789 

-P  SQ  IN 

742 

PRO 

M 

CONT  OUTPUT 
FOR  W.W. 


CONT  OUTPUT 
FOR  MOD 
WIN 
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PROGRAM  LISTING 

LINE  KEY  ENTRY _ COMMENTS  LINE  KEY  ENTRY 


798  PRO 

791  RCL  34 

792  -  THROAT 
fi  *  - 

793  RRCL  X 

794  -p  SQ  IN 

795  PRO 

796  ✓ 

797  -PORT/TH 
ROOT  =  “ 

798  RRCL  X 

799  PRO 
808  TONE  6 

801  RDV 

802  CF  21 

803  “NEXT  CM 
D  “ 

804  RVIEM 

805  SF  21 

806  RTN 

807+LBL  D  CAL  END 

808  SF  08  BRN 

809  -  U''  “ 

810  OCR 

811  "I  END: 

SF02- 

812  PROMPT 

813  FS?  02 

814  GTO  25 

815  GTO  26 
816^LBL  25 

817  -ONE  END 
BURNING- 

818  OCR 

819  PRBUF 

820  GTO  27 
821^LBL  26 

822  -TMO  END 
BURNING- 

823  RCR 

824  PRBUF 
825^LBL  27 

826  RDV 

827  RCL  09 

828  RCL  24 

829  FS?  02 

830  XEQ  11 

831  2 

832  * 

833  + 

834  STO  09  INL  Ab 


835 

RCL  32 

836 

RCL  01 

837 

✓ 

838 

RCL  01 

839 

RCL  18 

840 

2 

841 

♦ 

842 

FS7C  02 

843 

XEQ  1  1 

844 

— 

845 

* 

846 

STO  32 

847 

RCL  09 

848 

+ 

849 

2 

850 

851 

RCL  03 

852 

/ 

853 

STO  34 

854 

RCL  32 

855 

RCL  09 

856 

s 

857 

STO  33 

858 

-INL  fib= 

859 

RRCL  09 

860 

-P  SQ  IN 

861 

PRfi 

862 

-FNL  Rb= 

863 

RRCL  32 

864 

*■ 

-P  SQ  IN 

865 

PRR 

866 

-P.R."  ~ 

867 

RRCL  33 

868 

PRfi 

869 

-THRORT 

R=  - 
870 

RRCL  34 

871 

■a 

-P  SQ  IN 

872 

PRR 

873 

RCL  26 

874 

RCL  34 

875 

/ 

876 

-PORT^TH 

RORT 

’  _  M 

877 

RRCL  X 

878 

PRfi 

879 

TONE  8 

COMMENTS 


FNL  Ab 

At 

P.R. 
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PROGRAM  LISTING 

LINE  KEY  ENTRY  COMMENTS  LINE  KEY  ENTRY 


880  CF  21 

881  “NEXT  CM 
D" 

882  RVIEU 

883  SF  21 

884  ODV 

885  RTN 
886<*LBL  1  1 

887  2 

888  ✓ 

889  RTN 

898<*LBL  E  EXIT  PROGRAM 

891  CF  27 

892  DEG 

893  CLX 

894  END 


COMMENTS 
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REGISTER 

DATA 

00 

GRN  O.D. 

01 

GRN  LNGTH,  Lg 

02 

BRN  TIME,  tb 

03 

Kn 

04 

DENSITY  P 

05 

BRN  RATE,  r 

06 

DEL  ISP 

97 

TOTAL  ISP 

08 

(NOT  USED) 

09 

INL,  Ab 

10 

WEB,  w 

11 

INL  Si 

12 

STRESS  RAD,  r 

13 

SYM.  NR.,  N 

14 

BETA,  6 

15 

MAX  WEB 

16 

GAMMA,  y 

17 

ALPHA, 

18 

Acase 

19 

M 

20 

MAX  L 

21 

CALCULATED  L 

22 

Z 

23 

THETA,  o- 

24 

Agrain 

25 

Aslvr 

26 

Aport 

27 

L.F. 

28 

S.F. 

29 

NET  PROP.  WT. 

3 Of 

NET  I  TOTAL 

31 

AVG  F 

32 

FNL  Ab 

33 

P.R. 

34 

At 

35 

TOTAL  PROP.  WT. 

FLAGS 

INIT 

#  S/C  SET  INDICATES _ CLEAR  INDICATES 

00  C  STD.  W.W.  CALCULAT  NOT  STD.  W.W.  CAL 

01  C  STAR  CALCULATION  NOT  STAR  CAL 

02  C  ONE  END  BRN  TWO  END  BRN 

27  S  USER  MODE  PROGRAM  TERMINATED 


STATUS 

SIZE  037  TOTAL  REG.  315 

ENG  _  FIX  02 


USER  MODE 
ON  X  OFF 


SCI  DEG  RAD  X  GRAD 


ASSIGNMENTS 

NONE 
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DISTRIBUTION 


ADDRESSEE  COPIES 


DRSMI-RKX  1 
DRSMI-RKA  1 
DRSMI-RKC  1 
DRSMI-RKF  1 
DRSMK-RKK  5 
DRSMI-RKL  1 
DRSMI-RKP  1 
DRSMI-LP,  Mr.  Voigt  1 
DRSMI-RPR  15 
DRSMI-RPT  1 
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